Top 10k strings from Video Basic - Issue 02 (1985)(Ingelek Jackson)(16k)(es)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
14 |||||||||||||||||||||||||||||||
12 "23296"+N,
11 CAR
8 SOFTIDEA(COMO)T.031-240.959
7 "1";" ":
6 Y$="PULSA UNA TECLA PARA CONTINUAR ":
6 X,Y;T$(N):
6 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
5 "4";"ESTA BIEN ESCRITO ? (S/N)"
4 N$=N$+" ":
4 A$="PON EN MARCHA LA GRABADORA":
4 "1";" PARA LA GRABADORA ":
3 H$(CO4)=H$(
3 "5";"PULSA";
3 "238"+" ":
3 "1")=K$(N):
3 REPETIR";
3 PARA LA GRABADORA
2 }{z}{xvuxvtstqosv{zvtqosv{zvtqosv{
2 {|{z{}{z{|}~
2 {zx{xvuxuvz}
2 y$=" PULSA UNA TECLA PARA CONTINUAR ":
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBREAK: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 p$="VIDEOBASIC-EL LENGUAJE: ":
2 Y,N;A$(N-2
2 T$="AHORA "+N$+",":
2 SCREEN
2 RUTINA MAQUINA DE ESCRIBIR
2 PULSA UNA TECLA PARA CONTINUAR S
2 LIST
2 LETRERO ROTATORIO
2 LEE LOS UDG
2 INPUT
2 HOMBRECILLO
2 ;"scroll?"
2 ;"VIDEOBASIC":
2 ;" ";"REM"
2 ;" PARA LA GRABADORA ":
2 ;" ":
2 ***********************
2 ********************
2 * *
2 )=H$(CO2):
2 "4";"INTRODUCE";
2 "3")=Z$(N):
2 "23296"+n,
2 "2"*N);R$(N):
2 "2")=L$(N):
2 "1";" PON EN MARCHA LA GRABADORA ":
2 SOFTIDEA (Como)
2 INTRODUCCION";
2 EJERCICIOS";
2 CARGO LA SEGUNDA";
2
2
1 }|}xyxvtsqx
1 }|yxvtsqpq
1 }|xwxyxwx|xwx
1 }{z}{yxyvtx{
1 }{yxvtstwvwywvw|wvw
1 |~{|~|{ywutprtuwy{|~
1 |}yv}{xt{yvstx{
1 |yxywyxywyxywxyz{|}
1 {|{ywvtosv{
1 y(n)=y(n+1
1 y$="PULSA UNA TECLA PARA CONTINUAR ":
1 t$="NO PULSES <BREAK>":
1 t$="HAZ <LIST>}":
1 t$="- - - - - -":
1 t$=" CORRECTAMENTE !!!":
1 t$=" BIEN, LO HAS HECHO TODO":
1 p;" ":
1 p;" ":
1 p$="todos los perifericos ":
1 p$="los temas de la leccion ":
1 p$="juego de adivinanzas sobre ":
1 p$="en el proximo numero... ":
1 p$="el primer programa ":
1 p$="el microprocesador: ":
1 p$="del Spectrum ":
1 p$="concierto del ordenador ":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEONEXT":
1 p$="VIDEOLIST":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="Spry Wars ":
1 p$="INPUT - LIST - RUN ":
1 p$=" Tragaperras ":
1 p$=" el reloj del SPECTRUM ":
1 p$=" el SPECTRUM decide ":
1 p$=" REM - CLS - GOTO - IF-THEN ":
1 p$=" la CPU del SPECTRUM ":
1 n;" ":
1 n;" ":
1 en el proximo numero... Y
1 copy=23760
1 cc-aa,dd-bb,ee:
1 b$="introduccion":
1 b$=" ejercicios ":
1 attr=23813
1 aa,bb,cc,dd,ee:
1 a;" ":
1 a$="quieres repetir esta leccion ?(S/N)":
1 a$="TU SPECTRUM PUEDE SER EL CEN-TRO DE UN SISTEMA DE APARATOSELECTRONICOS, A TRAVES DE LOSCUALES PUEDE DESARROLLAR MU-CHAS FUNCIONES.":
1 a$="LAS IMPRESORAS SE UTILIZAN PA-RA ESCRIBIR SOBRE EL PAPEL NU-MEROS Y TEXTOS. SU VELOCIDADDE IMPRESION VARIA DESDE MENOSDE 30 HASTA MAS DE 400 CARAC-TERES POR SEGUNDO.":
1 a$="LA GRABADORA ES LA MEMORIA DEMASA MAS DIFUNDIDA. ES INDIS-PENSABLE PARA ALMACENAR DATOSY PROGRAMAS QUE SE PERDERIANCUANDO APAGARAS TU SPECTRUM.":
1 a$="GRACIAS AL MODEM, PUEDESTRANSMITIR DATOS Y PROGRAMAS ATRAVES DE LA LINEA TELEFONICA.":
1 a$="EL TELEVISOR Y EL MONITOR SONAPARATOS DESTINADOS A LA VI-SUALIZACION DE LA INFORMACIONPROVINIENTE DE TU SPECTRUM.":
1 a$="EL PLOTTER ES UN DISPOSITIVOQUE PERMITE TRAZAR GRAFICOS DEALTA RESOLUCION SOBRE PAPEL.":
1 a$="EL MICRODRIVE ES UNA MEMORIADE MASA MUCHO MAS VELOZ QUE LAGRABADORA. EXISTEN TAMBIEN IN-TERFACES PARA CONECTAR UNIDA-DES DE DISCO.":
1 a$="EL LAPIZ OPTICO ES CAPAZ DERECOGER INFORMACION DE LA PAN-TALLA DEL TELEVISOR, ASI COMODIBUJAR EN LA MISMA.":
1 a$="EL JOYSTICK ES UN DISPOSITIVODE ENTRADA QUE TE FACILITA LAINTRODUCCION DE DATOS. SE UTI-LIZA MUY FRECUENTEMENTE EN LOSJUEGOS.":
1 a$="EL ROBOT PUEDE CONSIDERARSECOMO EL BRAZO MECANICO DEL OR-DENADOR, MEDIANTE EL CUAL PUE-DEN MOVERSE DIVERSOS OBJETOS.":
1 a$=" HASTA PRONTO !":
1 _______________________
1 Z$="TEXTO":
1 Z$="$ ":
1 Z$=" ":
1 YY,XX;" ";
1 Y,X;A$(N);:
1 Y,N;" {|";
1 Y,E;" ":
1 X$=", ":
1 W$="VAR ":
1 W$=" "
1 Via Indipendenza 88
1 VISUALIZACION DE BLOQUE
1 VIDEOTEST
1 VIDEONEXT
1 VIDEOLIST
1 VIDEOJUEGO
1 VIDEOHARD
1 VIDEOBREAKD
1 VIDEOBASIC
1 V$="$ ":
1 UDG P
1 UDG
1 TRANSMITE Y RECIBE INFORMACI-ON A TRAVES DEL TELEFONO MODEM
1 TEST02
1 TERMINO INGLES CUYO SIGNIFICA-DO ES: DIAGRAMA DE FLUJO FLOWCHART
1 T$="UN PROGRAMA ES UNA SECUENCIAORDENADA, REPETIBLE, Y ALMACE-NABLE DE INSTRUCCIONES, QUEINFORMAN AL ORDENADOR DE:":
1 T$="TRAS REPRESENTAR LA FRASE<TEXTO>, ESPERA LA INTRODUC-CION DE UNA CADENA QUE SERAASIGNADA A LA VARIABLE A$ Y DEUN VALOR NUMERICO PARA LA VA-RIABLE <B>.":
1 T$="TRANSFORMAMOS EL ANALISIS QUEHEMOS HECHO, EN UN DIAGRAMA DEFLUJO. SEGUIDAMENTE TRADUCIRE-MOS AL BASIC LAS DIVERSAS FA-SES, PARA OBTENER LAS CORRES-PONDIENTES LINEAS DE PROGRAMA.":
1 T$="TRADUCCION AL":
1 T$="TE PROPONGO UN TEST. HAZ LOQUE TE PIDA PULSANDO LAS SI-GUIENTES TECLAS:":
1 T$="Se obtiene multiplicando labase por la altura y dividendoel resultado por dos.":
1 T$="SI SE VA A INTRODUCIR MAS DEUN DATO, ENTRE LAS VARIABLESCORRESPONDIENTES HAY QUE IN-TERPONER CUALQUIERA DE LOS CA-RACTERES SEPARADORES.":
1 T$="SI AL COMANDO <RUN> LE SIGUEUN NUMERO, LA EJECUCION DELPROGRAMA COMENZARA A PARTIR DELA LINEA INDICADA POR DICHONUMERO.":
1 T$="S=SUPERFICIE":
1 T$="RUN 1000":
1 T$="RECUERDA QUE <LIST>":
1 T$="PARA TERMINAR, FIJATE COMO":
1 T$="Los datos necesarios para ob-tener la superficie S, son labase B y la altura H, que sonvariables numericas reales.":
1 T$="LA INSTRUCCION <INPUT> HACEQUE EL SPECTRUM ESPERE UNA IN-FORMACION QUE SERA INTRODUCIDAPOR EL TECLADO.":
1 T$="INTRODUCCION":
1 T$="INPUT CON TEXTO DE UNA CADENA":
1 T$="INPUT C$":
1 T$="INPUT A,B,C":
1 T$="INPUT A":
1 T$="INPUT ""TEXTO"",M$":
1 T$="INPUT ""TEXTO"",A$,B":
1 T$="HAZ <LIST N>":
1 T$="H=ALTURA":
1 T$="FUNCIONA EL <SCROLL ?>":
1 T$="Escribir en la pantalla el re-sultado final.":
1 T$="ESPERA A QUE SE INTRODUZCANTRES VALORES NUMERICOS QUE SE-RAN ASIGNADOS A LAS VARIABLESA, B, Y C RESPECTIVAMENTE. PA-RA ELLO SE HA DE TECLEAR LOSVALORES Y PULSAR <ENTER>.":
1 T$="EL TEXTO, ENCERRADO ENTRE CO-MILLAS, SIGUE AL <INPUT>, YESTA SEPARADO DE LA VARIABLEPOR UN CARACTER A TAL FIN<;,'>.":
1 T$="EL SPECTRUM ESPERA LA INTRO-DUCCION DE UN TEXTO (UNA CADE-NA DE CARACTERES) QUE ASIGNA-RA A LA VARIABLE C$.":
1 T$="EL QUE OBTENER, ES DECIR, ELRESULTADO QUE BUSCA EL PROGRA-MADOR, ES NECESARIAMENTE ELPUNTO DE PARTIDA DE LA PROGRA-MACION.":
1 T$="EL ORDENADOR ESPERA LA INTRO-DUCCION DE UN VALOR NUMERICOQUE ASIGNARA A LA VARIABLE A.DESPUES DE HABER TECLEADO DI-CHO NUMERO, PULSA <ENTER>.":
1 T$="EL ORDENADOR ESPERA ASIGNARUNA CADENA A LA VARIABLE M$. LA FRASE <TEXTO> SE IMPRIME ENLA PANTALLA PARA INDICAR ELTIPO DE DATO A INTRODUCIR."
1 T$="EL COMANDO <RUN>, ANTES DEEJECUTAR EL PROGRAMA, BORRATODAS LAS VARIABLES QUE PUDIE-RAN EXISTIR, DEBIDO A INSTRUC-CIONES <LET> O <INPUT> ANTE-RIORES.":
1 T$="EL COMANDO <RUN> ORDENA ALSPECTRUM LA EJECUCION DEL PRO-GRAMA EXISTENTE EN LA MEMORIA,COMENZANDO DESDE LA PRIMERAINSTRUCCION.":
1 T$="EL BASIC PERMITE IMPRIMIRUN TEXTO EN LA INSTRUCCION<INPUT>, QUE APARECERA EN LAPANTALLA ANTES DEL CURSOR IN-TERMITENTE, PARA COMUNICAR ALUSUARIO DEL PROGRAMA QUE TIPODE DATOS TIENE QUE INTRODUCIR.":
1 T$="EJECUTA EL PROGRAMA DESDE LAPRIMERA INSTRUCCION.":
1 T$="EJECUTA EL PROGRAMA DESDE LALINEA 1000.":
1 T$="DESPUES DE QUE LA INFORMACIONHA SIDO TECLEADA Y SE HA PUL-SADO <ENTER>, SE EFECTUA LAASIGNACION A LA VARIABLE QUESE INDICA EN LA INSTRUCCION.":
1 T$="CUANDO EL ORDENADOR ESPERA UNDATO, IMPRIME EN LA PANTALLAUN CURSOR INTERMITENTE. DESDEESE MOMENTO, TODOS LOS CARAC-TERES TECLEADOS SON IMPRESOSEN LA PANTALLA, HASTA LA PUL-SACION DE <ENTER>, QUE DA PORFINALIZADA LA INTRODUCCION DELDATO.":
1 T$="CUAL ES LA MISION DEL PROGRA-MA?":
1 T$="CORRESPONDE A LA TECLA <K> }":
1 T$="CONTINUAMOS HABLANDO DE LAINSTRUCCION <INPUT>, VIENDOALGUN EJEMPLO.":
1 T$="CON QUE DATOS SE OBTIENE LASUPERFICIE DE UN TRIANGULO?":
1 T$="CON NUESTRO PRIMER PROGRAMA.":
1 T$="COMO SE OBTIENE LA SUPERFICIE?":
1 T$="COMENZAMOS, "+N$:
1 T$="BIEN, "+N$+",":
1 T$="BIEN "+N$+",":
1 T$="BASIC":
1 T$="B=BASE":
1 T$="AUNQUE HACE POCO QUE HAS EMPE-ZADO A ESTUDIAR CONMIGO, YAESTAS CAPACITADO PARA HACER UNPROGRAMA SENCILLO. SIGUEME!":
1 T$="AHORA PRUEBA TU, "+N$+",":
1 T$="AHORA HAZ <LIST N>":
1 T$="A TRADUCIR AL BASIC EL DIAGRA-MA DE FLUJO. REESCRIBE LAS LI-NEAS BASIC, NUMERANDOLAS DE 10EN 10, COMO EN EL EJEMPLO;PULSA <ENTER> PARA INTRODUCIR-LAS EN EL ORDENADOR.":
1 T$="40 PRINT S":
1 T$="30 LET S=B*H/2":
1 T$="3- SALIDA":
1 T$="3- QUE OBTENER":
1 T$="3 - FASE DE SALIDA":
1 T$="20 INPUT H":
1 T$="2- ELABORACION":
1 T$="2- COMO OPERAR":
1 T$="2 - FASE DE ELABORACION":
1 T$="10 INPUT B":
1 T$="1- ENTRADA":
1 T$="1- CON QUE OPERAR":
1 T$="1 - FASE DE ENTRADA":
1 T$="(SALIDA)":
1 T$="(ENTRADA)":
1 T$="(ELABORACION)":
1 T$=" VAS A REPETIR ? (S/N)":
1 T$=" PULSA UNA TECLA PARA CONTINUAR "
1 T$=" ES EXACTO ! }":
1 T$=" CON <N> MENOR QUE 9999} ":
1 T$=" INPUT DE UN VALOR NUMERICO":
1 T$=" ES EXACTO ! }":
1 T$=" ELIGE:":
1 T$=" AHORA "+N$+",":
1 T$=" INPUT DE UNA CADENA":
1 SIMBOLO DE MENOR QUE < 6
1 SIMBOLO DE MAYOR QUE >
1 SIMBOLO DE DISTINTO QUE
1 SENTENCIA PARA LA TOMA DE DA-TOS A TRAVES DEL TECLADO INPUT
1 SCROLL=23828
1 S=S+BONUS:
1 RUN M
1 ROTULOS ENTRANTES
1 R$="I""T"",V$":
1 PULSA UNA TECLA PARA CONTINUAR T
1 PULSA UNA TECLA PARA CONTINUAR N
1 PROGRAM.
1 PORTADA
1 PETICION DEL NOMBRE
1 PERIFERICO UTILIZADO PARA LAIMPRESION DE GRAFICOS EN PAPEL PLOTTER
1 PERIFERICO DE INPUT QUE SE EM-PLEA EN LOS JUEGOS JOYSTICK
1 P2;" ":
1 P$="en el numero 3 ":
1 ORDENA LA EJECUCION DEL PRO-GRAMA PRESENTE EN LA MEMORIA RUN
1 NUMERO MAXIMO DE UNA LINEA DEPROGRAMA 9999
1 N,E;" ":
1 N+I,CO6;" ":
1 M$=M$+C$(K,N):
1 LETREROS ENTRANTES
1 LA PROGRAMACIONT
1 L$="VAR ":
1 L$=""" ":
1 K$=K$+M$(N)
1 J$="VAR ":
1 INT.PROG
1 I;" PARA LA GRABADORA ":
1 H$(I)="SPECTRUM":
1 H$(CO4)=N$:
1 H$(CO2)=N$:
1 H$(CO2)=H$(
1 FL;" PARA LA GRABADORA ":
1 FASE DE LA PROGRAMACION EN LAQUE SE REALIZAN LOS CALCULOS ELABORACION
1 EL QUE OBTENER, ES DECIR, ELRESULTADO QUE BUSCA EL PROGRA-MADOR, ES NECESARIAMENTE ELPUNTO DE PARTIDA DE LA PROGRA-MACION.Y
1 EL PERIFERICO QUE IMPRIME SO-BRE EL PAPEL IMPRESORA
1 DISPOSITIVO QUE RECOGE INFOR-MACION DE LA PANTALLA LAPIZ OPTICO
1 DESPLAZAMIENTO DE LA INFORMA-CION ESCRITA EN LA PANTALLA SCROLL
1 D$="1232323":
1 D$="
1 COMANDO QUE MUESTRA LAS LINEASDE UN PROGRAMA LIST
1 CO7,CO7;"1) INSTRUCCIONES";
1 CO2,CO4;"ELIGE OPCION:"
1 CAR P
1 C$="
1 C$(K,N)=" "
1 BONUS=(LV*500
1 B$="------------"
1 B$="
1 A$="VIDEOTEST ":
1 A$="VIDEOBASIC":
1 A$="TU NOMBRE ESTA REGISTRADO EN LALISTA DE CAMPEONES.":
1 A$="NO HAY MAS CARGAS!":
1 A$="NO DEJES PASAR MAS DE UNTERCIO DE LOS BICHOS, SI NOQUIERES SER DESTRUIDO POR LAASTRONAVE ENEMIGA!!"
1 A$="NIVEL NUMERO "+
1 A$="LIST":
1 A$="LA PROGRAMACION"::
1 A$="FELICIDADES!!! HAS OBTENIDO UNADE LAS MEJORES PUNTUACIONES DELDIA.":
1 A$="EXTERMINA A TODOS LOS BI-CHOS QUE APARECEN POR LA DERE-CHA DE LA PANTALLA.":
1 A$="ESTA BIEN ESCRITO, "+N$+"?":
1 A$="ESCRIBE TU NOMBRE EN EL TE- CLADO (MAX 10 CARACTERES), Y PULSA <ENTER>. ":
1 A$="EN LA PARTE INFERIOR DERE-CHA DE LA PANTALLA, SE INDICAEL NUMERO DE BICHOS QUE QUEDANPOR PASAR."
1 A$="ELIGE EL NIVEL DE DIFICULTADDESPLAZANDO EL CURSOR CON LASTECLAS <P> Y <Q>; PULSA <0> ALTERMINAR.":
1 A$="DEMASIADOS SUPERVIVIENTES!!":
1 A$="BRAVO!!! HAS TEMINADO EL NIVEL NUMERO "+
1 A$="AL PRINCIPIO PUEDES ELEGIR9 NIVELES DE DIFICULTAD.":
1 A$="AL FINAL DE CADA NIVEL OB-TENDRAS UNA PUNTUACION EXTRAQUE DEPENDE DEL NUMERO DE CAR-GAS NO UTILIZADAS Y DE LOS BI-CHOS ELIMINADOS."
1 A$="AHORA BIEN, PARA JUGAR TEHACE FALTA SABER LAS TECLASQUE HAS DE UTILIZAR:":
1 A$="<Q> SPRAY IZQUIERDO":
1 A$="<P> SPRAY DERECHO":
1 A$=" PULSA UNA TECLA PARA CONTINUAR "
1 A$=" BUENA SUERTE ":
1 A$=" BONUS - "+
1 A$=" PARA LA GRABADORA ":
1 A$="
1 <LIST> ES LA INSTRUCCION QUETE PERMITE VER LAS LINEAS DELPROGRAMA QUE SE ENCUENTRA ENLA MEMORIA EN CADA MOMENTO.} SE UTILIZA, POR TANTO, PARA~LISTAR~ ORDENADAMENTE TODASLAS LINEAS DEL PROGRAMA.% <LIST> SE EMPLEA TANTO EN ELMODO INMEDIATO COMO EN EL MODOPROGRAMA.} USAR <LIST> DENTRO DE UN PRO-GRAMA, SIMPLEMENTE NO ES UTIL,PERO NO PROVOCA LA DETENCIONDEL MISMO.% CON <LIST> PUEDES VER TODASLAS INSTRUCCIONES: DE LA PRI-MERA A LA ULTIMA.} SI SE DESEA LISTAR UNA DETER-MINADA LINEA, SE DEBE ESCRIBIRLO SIGUIENTE:} LIST N } DONDE ~N~ ES EL NUMERO DE LAPRIMERA LINEA A LISTAR.% ~N~ PUEDE SER CONSTANTE, VA-RIABLE O EXPRESION NUMERICA.} CUANDO EJECUTAMOS UN <LIST>,EL SPECTRUM NOS MUESTRA LASLINEAS DEL PROGRAMA EN MEMO-RIA HASTA LLENAR LA PANTALLA.}LLEGADO A ESTE PUNTO, EL ORDE-NADOR EMITE EL MENSAJE DE~SCROLL?~, ESPERANDO QUE LEINDIQUES SI DEBE PROSEGUIR.% PARA INTERRUMPIR EL LISTADO,PU
1 ;n$;" ? (s/n)"
1 ;Z$+A$+B$+D$:
1 ;Z$+A$+B$+C$:
1 ;"y desconecta la alimentacion";
1 ;"muy bien, enhorabuena!"
1 ;"introduccion"
1 ;"ejemplos y ejercicios"
1 ;"de tu SPECTRUM.",,"Hasta pronto,";
1 ;"caracteres respectivos":
1 ;"Y PULSA <ENTER>":
1 ;"TU PUNTUACION ES ";s;" SOBRE 30."
1 ;"SIGUIENTE"
1 ;"PUNTOS 00000
1 ;"PRUEBA DE NUEVO"
1 ;"PREGUNTA N. ";w
1 ;"PON EN MARCHA LA GRABADORA PARA CARGAR UN NUEVO PROGRAMA "
1 ;"PARTE DE PROGRAMACION"
1 ;"PARA MEJORAR, REPASA";
1 ;"NO PUEDO AYUDARTE":
1 ;"NIVEL ";("0"
1 ;"MUY BIEN ";n$;
1 ;"La respuesta correcta es:";
1 ;"LIST"(x+1
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"Guarda la casete en su caja";
1 ;"ESTOY CARGANDO VIDEOTEST":
1 ;"ESTA BIEN ESCRITO ? (S/N)";
1 ;"ESTA BIEN ESCRITO ? (S/N)"
1 ;"ESCRIBE TU NOMBRE";
1 ;"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>."
1 ;"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
1 ;"ES CORRECTO."
1 ;"EN EL TECLADO";
1 ;"ELIGE :";
1 ;"DE UN TRIANGULO"
1 ;"D BREAK - CONT repeats, 0:0"
1 ;"CALCULO DE LA SUPERFICIE";
1 ;"AHI VA UNA PISTA:"
1 ;"<V> para variable ";
1 ;"<T> para texto ";
1 ;"<I> para input ";
1 ;"<""> <$> <;> para los ";
1 ;"1 2 3 4 5 6 7 8 9"
1 ;"0 OK, 0:1":
1 ;"0 OK, 0:0"
1 ;"""";i$;""" esta equivocado."
1 ;" Esta bien escrito";
1 ;" ";N$;" "
1 ;" PARTE DE <INPUT>"
1 ;" PON EN MARCHA LA GRABADORA ":
1 ;" PULSA ~0~ PARA TERMINAR EL CONCIERTO "
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" VIDEOHARDWARE curso de hardware "
1 ;" VIDEOBASIC presenta.."
1 ;" "
1 ;" ";
1 ;" "
1 ;" ";
1 ;" ";
1 ;" ":
1 ;" ":
1 ;" ":
1 ; "
1 10 INPUT BN
1 0HVideo Basic (2/20). Javier Perez Bustamante. Valladolid, Noviembre 2000.
1 00000000000000000000000000000000000000000000000000000000000000000000000000111111111111102110000000000000021111111111111221100000000000000222222222222222211000000000000002222222222222222110000000000000000000000000000000000000666666666660000000006600000000006666666666666666666666666666666666666666666666666666666666666666:????????????????????????????????????????????????????????????????::::???????????????????????????????????????????????????????????::::????????????????????????????88??????????????????????????????88?????????????????????:?????88?88???????????88?????::::?????88?88???????88????????89:::?????88?8888888888888888889999999???????888888888888888888999999:8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 ...................................
1 ,x;" "
1 ,XX;" ";
1 ,XX;" "
1 ,N;A$(N-10
1 ,CO7;"2) JUEGO"
1 ,,"PON EN MARCHA LA GRABADORA PARA CARGAR EL PROXIMO PROGRAMA "
1 +x,x;" "
1 +CO4*I,CO7;H$(I)+" ";H(I):
1 **AYUDA PARA EL SEGUNDO INTENTO**
1 ***puntuacion***
1 ***pulsa tecla***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***FLASH DE RESPUESTAS***
1 ***CLS DE ABAJO***
1 **** 22100 COMO ****
1 *** SOFTIDEA - COMO ***
1 *** SOFTIDEA ***
1 * VIA INDIPENDENZA 88 *
1 * SOFTIDEA COMO *
1 ));q$(q,65
1 (C/CO2+(LV*1.5
1 (BONUS)+" ":
1 ''"BIEN "+n$+",":
1 '"SIGUE CON ATENCION ESTAS EXPLI-CACIONES SOBRE LOS PERIFERICOSDE UN ORDENADOR."
1 "RESPUESTA = ";
1 "9";"LA PROGRAMACION"
1 "9";"INSTRUCCIONES":
1 "9";" ":
1 "7";"00000"
1 "7";" ":
1 "6";"PULSA";
1 "6";"FIN.":
1 "5";"INICIO":
1 "4";"PULSA";
1 "4";" BASE ":
1 "4";" ALTURA ":
1 "3";" ESTA BIEN ESCRITO ? (S/N)"
1 "25";" "
1 "21";"BIEN!";
1 "21",A1;" ";
1 "20";"OTRA VEZ":
1 "20";" ":
1 "20",A1;" ";
1 "2";"ESCRIBE AREA":
1 "2";"CALCULA AREA":
1 "2";" ";
1 "2")=J$(N):
1 "2");"BIEN "+N$+"!":
1 "19";" ":
1 "19",CO7;"4) FIN"
1 "19",A1;" "
1 "17";"TE SUGIERO";
1 "17";"QUE REVISES";
1 "17";"EL EJEMPLO.":
1 "17";" ":
1 "16",CO7;"NIVEL NUMERO ";LV:
1 "15",CO7;"3) CAMBIO NOMBRE";
1 "13";"INPUT":
1 "11";"VIDEOBASIC";
1 "11";"ERROR !":
1 "11",CO6;" ":
1 "10",CO6;" ":
1 "10");LV;"
1 "10 REM ADIOS","20 INPUT N","30 PRINT N","40 REM GOTO","50 GOTO 10","60 STOP "
1 "1";"ERROR":
1 "1";" PON EN MARCHA LA GRABADORA ":
1 "1";" ";
1 "1";" "
1 "1"-(M$(C+
1 "1",O(N);M$
1 " (S/N) ";
1 Tel. 031-240.959
1 Tel. 031-240.959
1 SOFTIDEA (Como)
1 SOFTIDEA (Como)
1 SOFTIDEA (COMO)
1 PULSA UNA TECLA PARA CONTINUAR S
1 PULSA UNA TECLA PARA CONTINUAR *
1 LOS MEJORES DE HOY
1 INICIO ";
1 FIN DE JUEGO
1 CARGO LA PARTE";
1 CARGO EL VIDEOJUEGO";
1 CARGO <VIDEOTEST>"
1 CARGO <VIDEOBREAK>";
1 CARGO <LIST>";
1 CARGAS 000 | ";B
1 BICHOS 000 |
1 SOFTIDEA (Como)
1 Pon en marcha la grabadora
1 ":
1 *
1
1
1
1
1
1
1